{$CLEO .cs}
0000:


:WEAPON_STORE_FARM
//gosub @ZOMBIES_CLEANUP
03E6: remove_text_box 
wait 200      
0ADF: add_dynamic_GXT_entry "_weap" text "Weapons Ammunation"    
0ADF: add_dynamic_GXT_entry "menu01" text "Pistol ~h~~g~~$w~350"
0ADF: add_dynamic_GXT_entry "menu02" text "Shotgun ~h~~g~~$w~600"
0ADF: add_dynamic_GXT_entry "menu03" text "Sawnoff ~h~~g~~$w~700"
0ADF: add_dynamic_GXT_entry "menu04" text "Tec9 ~h~~g~~$w~1000" 
0ADF: add_dynamic_GXT_entry "menu05" text "Baseball Bat ~h~~g~~$w~200" 
0ADF: add_dynamic_GXT_entry "menu06" text "Rifle ~h~~g~~$w~2000" 
0ADF: add_dynamic_GXT_entry "menu07" text "Nitestick ~h~~g~~$w~500" 
0ADF: add_dynamic_GXT_entry "menu08" text "Micro-Uzi ~h~~g~~$w~1500" 
0ADF: add_dynamic_GXT_entry "menu09" text "Flamethrower ~h~~g~~$w~5000" 
0ADF: add_dynamic_GXT_entry "menu10" text "Fire Extinguisher ~h~~g~~$w~3000" 
0ADF: add_dynamic_GXT_entry "menu11" text "RPG ~h~~g~~$w~10000" 
0ADF: add_dynamic_GXT_entry "menu12" text "Knife ~h~~g~~$w~5000"  


//0512: show_permanent_text_box 'dummy' 
08D4: 1@ = create_panel_with_title '_weap' position  340.0  32.0 width  240.0 columns  1 interactive  1 background  1 alignment  0
08DB: set_panel 1@ column  0 header 'dummy' data 'menu01' 'menu02' 'menu03' 'menu04' 'menu05' 'menu06' 'menu07' 'menu08' 'menu09' 'menu10' 'menu11' 'menu12'
090E: set_panel 1@ active_row  0
01B4: set_player $PLAYER_CHAR can_move 0
03BF: set_player $PLAYER_CHAR ignored_by_everyone 1     
08D6: set_panel 1@ column 0 alignment 1

while true  
08D7: 2@ = panel 1@ active_row//-- submit number of the highlighted button into variable

wait  0
if
00E1:   key_pressed  0  15//--- key = Enter/Exit
then

  break
end

        if and
        010A:   player $PLAYER_CHAR money > 350
        00E1:   key_pressed  0  16//--- key = Ped SPRINT
        0039:   2@ ==  0  // integer values
        then
                actor.GiveWeaponAndAmmo(player1,pistol,35)
                if
                0800:   in_two_players_mode
                then
                 actor.GiveWeaponAndAmmo(player2,pistol,35)
                end
                 0109: player $PLAYER_CHAR money_drop -350
        gosub @buyed 
        
        end
        if  and
             010A:   player $PLAYER_CHAR money > 600
        00E1:   key_pressed  0  16//--- key = Ped SPRINT
                0039:   2@ ==  1  // integer values
        then
                actor.GiveWeaponAndAmmo(player1,shotgun,30)
                if
                0800:   in_two_players_mode
                then
                 actor.GiveWeaponAndAmmo(player2,shotgun,30)
                end       
                0109: player $PLAYER_CHAR money_drop -600
             gosub @buyed 
        
        end 
               if  and
             010A:   player $PLAYER_CHAR money > 700
        00E1:   key_pressed  0  16//--- key = Ped SPRINT
                0039:   2@ ==  2  // integer values
        then
                actor.GiveWeaponAndAmmo(player1,sawnoff,20)
                if
                0800:   in_two_players_mode
                then
                 actor.GiveWeaponAndAmmo(player2,sawnoff,20)
                end       
                0109: player $PLAYER_CHAR money_drop -700
             gosub @buyed 
        
        end 
                if  and
             010A:   player $PLAYER_CHAR money > 1000
        00E1:   key_pressed  0  16//--- key = Ped SPRINT
                0039:   2@ ==  3  // integer values
        then
                actor.GiveWeaponAndAmmo(player1,tec9,40)
                if
                0800:   in_two_players_mode
                then
                 actor.GiveWeaponAndAmmo(player2,tec9,40)
                end       
                0109: player $PLAYER_CHAR money_drop -1000
             gosub @buyed 
        
        end 
        if  and
         010A:   player $PLAYER_CHAR money > 100
        00E1:   key_pressed  0  16//--- key = Ped SPRINT
          0039:   2@ == 4  // integer values
        then
                actor.GiveWeaponAndAmmo(player1,BaseballBat,40)
                if
                0800:   in_two_players_mode
                then
                 actor.GiveWeaponAndAmmo(player2,BaseballBat,40)
                end       
                0109: player $PLAYER_CHAR money_drop -100
             gosub @buyed 
        end 
        if  and
         010A:   player $PLAYER_CHAR money > 2000
        00E1:   key_pressed  0  16//--- key = Ped SPRINT
          0039:   2@ == 5  // integer values
        then
                actor.GiveWeaponAndAmmo(player1,Rifle,30)
                if
                0800:   in_two_players_mode
                then
                 actor.GiveWeaponAndAmmo(player2,Rifle,30)
                end       
                0109: player $PLAYER_CHAR money_drop -2000
             gosub @buyed 
        end 
        if  and
         010A:   player $PLAYER_CHAR money > 200
        00E1:   key_pressed  0  16//--- key = Ped SPRINT
          0039:   2@ ==  6 // integer values
        then
                actor.GiveWeaponAndAmmo(player1, NightStick,40)
                if
                0800:   in_two_players_mode
                then
                 actor.GiveWeaponAndAmmo(player2,NightStick,40)
                end       
                0109: player $PLAYER_CHAR money_drop -200
             gosub @buyed 
        end 
        if  and
         010A:   player $PLAYER_CHAR money > 1500
        00E1:   key_pressed  0  16//--- key = Ped SPRINT
          0039:   2@ == 7 // integer values
        then
                actor.GiveWeaponAndAmmo(player1, MicroUzi,50)
                if
                0800:   in_two_players_mode
                then
                 actor.GiveWeaponAndAmmo(player2, MicroUzi,50)
                end       
                0109: player $PLAYER_CHAR money_drop -1500
             gosub @buyed 
        end 
        if  and
         010A:   player $PLAYER_CHAR money > 5000
        00E1:   key_pressed  0  16//--- key = Ped SPRINT
          0039:   2@ == 8   // integer values
        then
                actor.GiveWeaponAndAmmo(player1, FlameThrower,40)
                if
                0800:   in_two_players_mode
                then
                 actor.GiveWeaponAndAmmo(player2,FlameThrower,40)
                end       
                0109: player $PLAYER_CHAR money_drop -5000
             gosub @buyed 
        end 
        if  and
         010A:   player $PLAYER_CHAR money > 5000
        00E1:   key_pressed  0  16//--- key = Ped SPRINT
          0039:   2@ == 9 // integer values
        then
                actor.GiveWeaponAndAmmo(player1, FireExtinguisher ,40)
                if
                0800:   in_two_players_mode
                then
                 actor.GiveWeaponAndAmmo(player2, FireExtinguisher,40)
                end       
                0109: player $PLAYER_CHAR money_drop -5000
             gosub @buyed 
        end 
        if  and
         010A:   player $PLAYER_CHAR money > 10000
        00E1:   key_pressed  0  16//--- key = Ped SPRINT
          0039:   2@ == 10   // integer values
        then
                actor.GiveWeaponAndAmmo(player1,  RPG,5)
                if
                0800:   in_two_players_mode
                then
                 actor.GiveWeaponAndAmmo(player2, RPG,5)
                end       
                0109: player $PLAYER_CHAR money_drop -10000
             gosub @buyed 
        end 
        
        if  and
         010A:   player $PLAYER_CHAR money > 500
        00E1:   key_pressed  0  16//--- key = Ped SPRINT
          0039:   2@ == 11   // integer values
        then
                actor.GiveWeaponAndAmmo(player1,  Knife,40)
                if
                0800:   in_two_players_mode
                then
                 actor.GiveWeaponAndAmmo(player2,Knife,40)
                end       
                0109: player $PLAYER_CHAR money_drop -500
             gosub @buyed 
        end 
        
end  
08DA: remove_panel 1@
03E6: remove_text_box  
01B4: set_player $PLAYER_CHAR can_move 1
03BF: set_player $PLAYER_CHAR ignored_by_everyone 0
terminate_this_custom_script

:buyed 
018C: play_sound 1052 at 0.0 0.0 0.0
show_styled_text "~w~purchased weapon" 1000 5
wait 100
return
